make more robust comp-emit-uncond-jump

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index cf779179d709293b7fac63926b035778090a35b8..f41731951eabda3d6b3a2960fe3356c5c535718f 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -610,7 +610,8 @@ The block is returned."
 (defun comp-emit-uncond-jump (lap-label)
   "Emit an unconditional branch to LAP-LABEL."
   (cl-destructuring-bind (label-num . stack-depth) lap-label
-    (cl-assert (= (1- stack-depth) (comp-sp)))
+    (when stack-depth
+      (cl-assert (= (1- stack-depth) (comp-sp))))
     (let ((target (comp-lap-to-limple-bb label-num)))
       (comp-block-maybe-mark-pending :name target
                                      :sp (comp-sp)